home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 1995 November (Mac) / cd No7 joystick No65 novembre 1995.iso / mac / Fouillationnons! / Jeux / Xconq 7.0.1 / lib / mars.g < prev    next >
Text File  |  1995-08-22  |  3KB  |  105 lines
  1. (game-module "mars"
  2.   (blurb "Mars")
  3.   (variants
  4.     (see-all false)
  5.     (world-seen false)
  6.     )
  7.   )
  8.  
  9. (terrain-type plani (color "orange") (char "+"))
  10. (terrain-type highlands (color "brown") (char "^"))
  11. (terrain-type canyon (color "tan"))
  12. (terrain-type co2-ice (color "white"))
  13. (terrain-type water-ice (color "light blue"))
  14.  
  15. (terrain-type wall (subtype border))
  16.  
  17. (define cell-t* (plani highlands))
  18.  
  19. (unit-type rover (image-name "hovercraft") (char "c")
  20.   (help "slow, long-range")
  21.   )
  22. (unit-type boulder-car (char "b")
  23.   (help "fast, small, shorter-range, hard for satellites to see")
  24.   )
  25.  
  26. (define ground-types (rover boulder-car))
  27.  
  28. (unit-type satellite
  29.   (help "hovers overhead, observes all below")
  30.   )
  31.  
  32. (unit-type base
  33.   )
  34. (unit-type underground-city
  35.   )
  36. (unit-type domed-city
  37.   (help "large but vulnerable")
  38.   )
  39. (unit-type underice-city
  40.   (help "nearly invisible, can only be placed under water ice")
  41.   )
  42.  
  43. (material-type air)
  44. (material-type water)
  45. (material-type food)
  46.  
  47. ;;; Static relationships.
  48.  
  49.  
  50. ;;; Actions.
  51.  
  52. (add ground-types acp-per-turn 4)
  53.  
  54. ;;; Random game setup.
  55.  
  56. ;;; Some defns for the fractal percentile generator.
  57.  
  58. (set alt-blob-density 10000)
  59. (set alt-blob-height 500)
  60. (set alt-blob-size 200)
  61. (set alt-smoothing 4)
  62. (set wet-blob-density 2000)
  63. (set wet-blob-size 100)
  64.  
  65. (add cell-t* alt-percentile-min (  0  70))
  66. (add cell-t* alt-percentile-max ( 69 100))
  67. (add cell-t* wet-percentile-min (  0   0))
  68. (add cell-t* wet-percentile-max (100 100))
  69.  
  70. (add u* start-with 1)
  71.  
  72. (area 60 30)
  73.  
  74. (world 400)
  75.  
  76. (scorekeeper (do last-side-wins))
  77.  
  78. (game-module (notes (
  79.   "This game was inspired by Kim Stanley Robinson's `Red Mars',"
  80.   "an excellent story of the near-future colonization of Mars."
  81.   ""
  82.   "The general idea of the game is to build up a colony and perhaps"
  83.   "eventually contend for control of Mars, if players can't work out"
  84.   "agreements."
  85.   )))
  86.  
  87. (game-module (design-notes (
  88.   "This game is far from complete."
  89.   ""
  90.   "Mars is 21240km in diameter, elevations range over 27km. To show"
  91.   "canyons and such, would need a very large map."
  92.   "10m intervals for elevation would be reasonable."
  93.   "Scenarios could include solitaire game to establish a viable settlement,"
  94.   "and a race for Mars that is competitive."
  95.   ""
  96.   "(should be able to mine for water(ice) and transport to cities)"
  97.   )))
  98.  
  99. (add satellite notes (
  100.   "Satellites are spy satellites that can see much on the ground,"
  101.   "but require so much observing and processing time that they can"
  102.   "only focus on small areas at a time.  So the position of a satellite"
  103.   "designates its focus area rather than its actual physical position."
  104.   ))
  105.